home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / P-New PET 1983 / (p)mb.d64 / math swim.40 (.txt) < prev    next >
Commodore BASIC  |  2007-04-28  |  11KB  |  374 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  29. 150 UZ=1:UV%=PEEK(UT):GOTO300
  30. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
  31. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  32. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:IFFQ=0GOTO35
  33. 166 GOTO 1940
  34. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  35. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  36. 300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6
  37. 305 PRINT"                M E N U"
  38. 310 PRINT"    --------------------------------"
  39. 315 PRINT"       1.   BEGIN MATH SWIM"
  40. 320 PRINT"       2.   STUDENT INSTRUCTIONS"
  41. 325 PRINT"       3.   TEACHER INSTRUCTIONS"
  42. 330 PRINT"       4.   QUIT"
  43. 335 PRINT"    --------------------------------"
  44. 340 PRINT"       PRESS A NUMBER KEY (1-5) ";
  45. 345 UL=1:US$="1234"
  46. 347 GOSUB35:US$=""
  47. 350 ONVAL(UR$)GOSUB1000,400,500,390
  48. 355 GOTO300
  49. 370 IFUZ=1THENSYSUP%:GOTO155
  50. 375 RETURN
  51. 390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
  52. 395 CLR:END
  53. 400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,11:POKEUX,12
  54. 405 UT$=" [205]ATH [211]WIM":UH=1:UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
  55. 406 PRINT"    [205]ATH [211]WIM IS A GAME PLAYED WITH TWO"
  56. 407 PRINT" PLAYERS.  [212]HE GAME IS TO RACE UP THE"
  57. 408 PRINT" LADDER TO BE THE FIRST ONE TO DIVE"
  58. 409 PRINT" INTO THE SWIMMING POOL."
  59. 410 PRINT"    [212]O CLIMB THE LADDER, YOU MUST"
  60. 411 PRINT" ANSWER THE MATH QUESTIONS CORRECTLY."
  61. 412 PRINT" [201]F YOU GET THE QUESTION RIGHT, YOU"
  62. 413 PRINT" MOVE UP ONE RUNG.  [201]F YOU'RE WRONG,"
  63. 414 PRINT" DOWN YOU GO!!"
  64. 485 GOSUB835
  65. 490 IFUZ=1THENSYSUP%:GOTO155
  66. 495 RETURN
  67. 500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10
  68. 501 UT$=" [205]ATH [211]WIM":UH=1:UP=0:UG$="[212]EACHER [201]NST":GOSUB850
  69. 502 PRINT"     [212]O THE BEST OF OUR KNOWLEDGE,"
  70. 503 PRINT"     THIS PROGRAM IS IN THE PUBLIC"
  71. 504 PRINT"     DOMAIN.  [201]F THIS IS NOT TRUE,"
  72. 505 PRINT"     PLEASE CONTACT:"
  73. 506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
  74. 507 PRINT"          3370 [208]HARMACY [193]VE.
  75. 508 [153]"          ATNGINCOURT, (null)NTARIO"
  76. 509 [153]"          LENANADA, (null)1(null) 2(null)4"
  77. 510 [153]"          (416) 499-4292"
  78. 511 UH[178]1:[141]835:[141]850
  79. 512 [153]"      (null)ROGRAM (null)AME: (null)ATH (null)WIM
  80. 513 PRINT"      [215]RITTEN BY  : [210]. [203]AISER
  81. 514 [153]"      (null)EVISED BY  : STR$. LEFT$ARRISON
  82. 515 PRINT"      [212]HIS PROGRAM WILL RUN ON ANY
  83. 516 [153]"         PEEKATN(null)RIGHT$LENCLOSE2.0 (null)VAL(null) LENOMPUTER
  84. 517 PRINT"         [194][193][211][201][195] 4.0 [208][197][212][160][195]OMPUTER
  85. 518 [153]"         8032 LENPEEK(null) LENOMPUTER
  86. 519 PRINT"         [195]OMMODORE 64 [195]OMPUTER":GOSUB835:UH=1:GOSUB850
  87. 520 PRINT"    [205]ATH SWIM IS A MATH GAME WITH A"
  88. 521 PRINT" DIFFERENCE.  [201]NSTEAD OF SIMPLY ASKING"
  89. 522 PRINT" QUESTIONS, THE CHILD IS MOTIVATED"
  90. 523 PRINT" BY COMPETITION WITH ANOTHER STUDENT"
  91. 524 PRINT" IN A RACE."
  92. 526 PRINT"    [205]ATH [211]WIM WILL QUIZ 2 STUDENTS IN"
  93. 527 PRINT" FOUR BASIC OPERATIONS.  [215]ITH DIVISION,"
  94. 528 PRINT" THE PROGRAM IS CAREFUL TO MAKE SURE"
  95. 529 PRINT" THE ANSWERS ARE WHOLE NUMBERS."
  96. 585 GOSUB835
  97. 590 IFUZ=1THENSYSUP%:GOTO155
  98. 595 RETURN
  99. 600 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,11:POKEUX,12
  100. 605 UT$=" [205]ATH [211]WIM":UH=1:UP=0:UG$="[208]RG. [205]OD.":GOSUB850
  101. 606 PRINT"     [212]HE LEVEL OF DIFFICULTY FOR EACH"
  102. 607 PRINT"QUESTION IS GENERATED IN LINES 2050-"
  103. 608 PRINT"2150.  [195]HANGE THE THE MULTIPLIER"
  104. 609 PRINT"IN EACH OF THE [210][206][196] CALLS TO SUIT YOUR"
  105. 610 PRINT"STUDENTS' ABILITIES."
  106. 685 GOSUB835
  107. 690 IFUZ=1THENSYSUP%:GOTO155
  108. 695 RETURN
  109. 700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
  110. 705 [153]"      LOAD THE 'CBM 4032' PROGRAM":[128]
  111. 800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,14
  112. 801 [129]I[178]1[164]38:[153]" WAIT";:[130]
  113. 802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
  114. 803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
  115. 804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
  116. 805 [153]"STEP  WAIT
  117. 806 PRINT" [146]   [146][169]
  118. 807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
  119. 808 PRINT"[223]  [146]
  120. 809 [153]"EDUCATIONAL
  121. 810 PRINT"SOFTWARE
  122. 811 [153]"1983
  123. 812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
  124. 813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
  125. 814 GOTO300
  126. 835 POKEUN,0:PRINTLEFT$(UD$,25);"PRESS SPACE BAR TO CONTINUE[146]";
  127. 840 GETUI$:IFUI$<>" "THEN840
  128. 845 RETURN
  129. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  130. 855 PRINT" --------------------------------------"
  131. 860 IFUH=0THENPRINTLEFT$(UD$,25);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>";
  132. 865 UH=0:PRINT"":RETURN
  133. 875 PRINTLEFT$(UD$,25);"           ONE MOMENT PLEASE...     ";:RETURN
  134. 900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
  135. 901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
  136. 902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  137. 903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  138. 904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
  139. 905 UD$="":UP$="                                      "
  140. 909 RETURN
  141. 910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  142. 915 IFPEEK(US+40)<>96THEN700
  143. 920 IF(FRE(0)-(SGN(FRE(0))<0)*65536)>500THEN935
  144. 925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  145. 930 PRINT"MEMORY TO RUN THIS PROGRAM !":END
  146. 935 PRINT"[147]"UC$:IFUW=0THEN965
  147. 940 IFUF=60ORUF=108ORUF=124THEN950
  148. 945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
  149. 950 IFUW=160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
  150. 955 IFUW<>1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":END
  151. 960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
  152. 965 SYSUD
  153. 970 GOSUB800:GOTO300
  154. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0
  155. 1001 PRINT"[147]"UC$;:RESTORE:IFUW=0THENPOKEUY,6:POKEUX,14
  156. 1002 CLR:GOSUB900
  157. 1010 REM MATH SWIM
  158. 1080 POKEUT,UU%
  159. 1085 UT$=" MATH SWIM":UG$="PAGE":UH=1:UP=0:GOSUB850:GOSUB875
  160. 1090 GOSUB 3050
  161. 1100 WR$(1)="[164][210][198][210][164][210][198][210][164][210][198][210][164][210][198]"
  162. 1110 WR$(2)="[210][198][210][164][210][198][210][164][210][198][210][164][210][198][210]"
  163. 1120 WR$(3)="[198][210][164][210][198][210][164][210][198][210][164][210][198][210][164]"
  164. 1130 WR$(4)="[210][164][210][198][210][164][210][198][210][164][210][198][210][164][210]"
  165. 1140 QL=INT(RND(1)*2)+1:J(1)=1:J(2)=2
  166. 1160 PP$(1)="[205][215][206][157][157][157][163]1[146][163][157][157][157][208] [207]"
  167. 1170 PP$(2)="[205][215][206][157][157][157][163]2[146][163][157][157][157][208] [207]"
  168. 1180 PP$(3)="[164][215][164][157][157][157][202]1[146][203][157][157][157][208] [207]"
  169. 1190 PP$(4)="[164][215][164][157][157][157][202]2[146][203][157][157][157][208] [207]"
  170. 1200 PP$(5)=" [215] [157][157][157][206]1[146][205][157][157][157][208] [207]"
  171. 1210 PP$(6)=" [215] [157][157][157][206]2[146][205][157][157][157][208] [207]"
  172. 1220 PP$(7)=" [215] [157][157][157][213]1[146][201][157][157][157][167] [165]"
  173. 1230 PP$(8)=" [215] [157][157][157][213]2[146][201][157][157][157][167] [165]"
  174. 1240 PQ$(1)=" [215] [157][157][157][157] [213]1[146][201][157][157][157][157] [167] [205]"
  175. 1250 PQ$(2)=" [215] [157][157][157][157] [213]2[146][201][157][157][157][157] [167] [205]"
  176. 1260 PQ$(3)=" [215] [157][157][157][157] [213]1[146][201][157][157][157][157] [167] [165]"
  177. 1270 PQ$(4)=" [215] [157][157][157][157] [213]2[146][201][157][157][157][157] [167] [165]"
  178. 1280 PQ$(5)=" [215] [157][157][157][206]1[146][205][157][157][157][167] [165][157][157][157]   "
  179. 1290 PQ$(6)=" [215] [157][157][157][206]2[146][205][157][157][157][167] [165][157][157][157]   "
  180. 1300 PQ$(7)=" [215] [157][157][157][157] [206]1[146][205][157][157][157][157] [167] [165]"
  181. 1310 PQ$(8)=" [215] [157][157][157][157] [206]2[146][205][157][157][157][157] [167] [165]"
  182. 1320 PQ$(9)="   [157][157][157][205][215][206][157][157][157] 1[146] [157][157][157][206] [205]"
  183. 1330 PQ$(10)="   [157][157][157][205][215][206][157][157][157] 2[146] [157][157][157][206] [205]"
  184. 1340 PR$(1)=" [164][205] [157][157][157] 1[146][215][157][157][157][157] [163][206]"
  185. 1350 PR$(2)=" [164][205] [157][157][157] 2[146][215][157][157][157][157] [163][206]"
  186. 1360 PR$(3)=" [205][167] [157][157][157] 1[146][215][157][157][157][157] [206][167]"
  187. 1370 PR$(4)=" [205][167] [157][157][157] 2[146][215][157][157][157][157] [206][167]"
  188. 1380 PR$(5)=" [164] [206][157][157][157] 1[146][215][157][157][157][157] [163] [205]"
  189. 1390 PR$(6)=" [164] [206][157][157][157] 2[146][215][157][157][157][157] [163] [205]"
  190. 1400 PR$(7)=" [164] [164][157][157][157] 1[146][215][157][157][157][157] [163] [163]"
  191. 1410 PR$(8)=" [164] [164][157][157][157] 2[146][215][157][157][157][157] [163] [163]"
  192. 1420 PS$(1)=" [164] [157][157] 1[146][157][157][157] [163] [157]"
  193. 1430 PS$(2)=" [164] [157][157] 2[146][157][157][157] [163] [157]"
  194. 1440 PS$(3)=" [164][157][157] [163]"
  195. 1450 PS$(4)=" [164][157][157] [163]"
  196. 1460 PS$(5)=" [157] [157] "
  197. 1470 PS$(6)=" [157] [157] "
  198. 1570 UH=0:GOSUB850:PRINT""
  199. 1580 POKEUN,0
  200. 1590 PRINTTAB(4)"CHOOSE ONE OF THE FOLLOWING:"
  201. 1600 PRINTTAB(10)"A[146] ADDITION"
  202. 1610 PRINTTAB(10)"S[146] SUBTRACTION"
  203. 1620 PRINTTAB(10)"M[146] MULTIPLICATION"
  204. 1630 PRINTTAB(10)"D[146] DIVISION"
  205. 1640 PRINT" WHICH OPERATION DO YOU WANT? ";
  206. 1650 US$="ASMDH":UL=1:GOSUB35:A$=UR$
  207. 1670 IFA$="A"THENMF=1
  208. 1680 IFA$="S"THENMF=2
  209. 1690 IFA$="M"THENMF=3
  210. 1700 IFA$="D"THENMF=4
  211. 1710 UH=0:GOSUB850:GOSUB1730:GOTO1910
  212. 1720 GOSUB1730:GOTO 1910
  213. 1730 RR=11:CC=9:GOSUB3090
  214. 1740 PRINT"                [185][185][185][185]"
  215. 1750 RR=16:CC=25:GOSUB 3090
  216. 1760 PRINT" [146]";
  217. 1770 RR=16:CC=26:GOSUB 3090
  218. 1780 PRINT WR$(1);
  219. 1790 RR=16:CC=25:GOSUB 3090:PRINT" [157] [157] [157] [157] "
  220. 1800 RR=19:GOSUB 3090
  221. 1810 RR=20:GOSUB 3090
  222. 1820 PRINT"                "
  223. 1830 RR=21:CC=6:GOSUB3090
  224. 1840 PRINT"                 [146]";
  225. 1850 PRINT"                 [146]";
  226. 1860 RR=12:CC=10:GOSUB3090:PRINT"[167]   [165] [146][167]   [165]"
  227. 1870 FORRR=13TO20
  228. 1880 CC=10:GOSUB 3090
  229. 1890 PRINT"[167][163][163][163][165] [146][167][163][163][163][165]"
  230. 1900 NEXTRR:RETURN
  231. 1910 L(1)=0:L(2)=0:GOSUB 2580
  232. 1920 GOTO2040
  233. 1930 RR=23:CC=5+LEN(PB$)-4:GOSUB 3090
  234. 1940 ZL=3:GOSUB 2270:IFZI$="H"THENPRINT" [157]";:FQ=1:GOTO145
  235. 1950 IF ZI=V3THEN2000
  236. 1960 L(QL)=L(QL)-1
  237. 1970 IF L(QL)<0THENL(QL)=0
  238. 1980 IFL(QL)-7<0THENJ(QL)=QL
  239. 1990 GOTO 2030
  240. 2000 L(QL)=L(QL)+1
  241. 2010 IF L(QL)-7>0THENJ(QL)=J(QL)+2
  242. 2020 IF L(QL)=10THENGOSUB2720
  243. 2030 GOSUB 2580:QL=3-QL:GOTO 1920
  244. 2040 ONMFGOTO 2050,2080,2120,2140
  245. 2041 REM
  246. 2050 REM * ADDITION *
  247. 2055 V1=INT(RND(1)*21)
  248. 2060 V2=INT(RND(1)*(20-V1))
  249. 2070 V3=V1+V2:MS$="+":GOTO2180
  250. 2071 REM
  251. 2080 REM * SUBTRACTION *
  252. 2085 V1=INT(RND(1)*21)
  253. 2090 V2=INT(RND(1)*(20-V1))
  254. 2100 IF V2>V1 THEN Q=V1:V1=V2:V2=Q
  255. 2110 V3=V1-V2:MS$="-":GOTO2180
  256. 2119 REM
  257. 2120 REM * MULTIPLICATION *
  258. 2125 V1=INT(RND(1)*11):V2=INT(RND(1)*11)
  259. 2130 V3=V1*V2:MS$="[214]":GOTO2180
  260. 2139 REM
  261. 2140 REM * DIVISION *
  262. 2145 V2=INT(RND(1)*11)
  263. 2150 V3=INT(RND(1)*11)
  264. 2160 IFV2=0THEN2140
  265. 2170 MS$="/":V1=V2*V3
  266. 2180 PB$=STR$(V1)+"  "+MS$+" "+STR$(V2)+"  =  [197][197][197][197]"
  267. 2190 RR=23:CC=0:GOSUB 3090:PRINTUP$;
  268. 2200 RR=24:CC=3+LEN(PB$)-5:GOSUB3090:PRINT"               ";
  269. 2210 FOR XX=1TO2:RR=18-L(XX):CC=0:GOSUB3090
  270. 2220 PRINT"        [157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]        ":NEXT XX
  271. 2230 RR=19-L(QL)
  272. 2240 CC=1:GOSUB 3090:PRINT" PLAYER"QL
  273. 2250 RR=23:CC=5:GOSUB 3090:PRINT PB$
  274. 2260 GOTO 1930
  275. 2270 ZI$="":ZQ=1
  276. 2280 POKEUN,0
  277. 2290 GETZG$:IFZG$<>""THEN2320
  278. 2300 GOSUB 2510
  279. 2305 IFFQ=1THENCC=CC-1:FQ=0
  280. 2310 PRINT" [146][157]";:FORZ1=1TO60:NEXT:PRINT" [157]";:FORZ1=1TO2:NEXTZ1:GOTO2290
  281. 2320 Z9=ASC(ZG$):Z8=LEN(ZI$)
  282. 2330 IF Z8=0 AND ZG$="R" THEN ZL=3
  283. 2340 IFZ9=20THEN2420
  284. 2350 IFZ9=13THEN2470
  285. 2360 IFZ8=ZLTHEN2290
  286. 2370 IFZ9=ASC("H")THEN2400
  287. 2390 IFZG$<"0"ORZG$>"9"THEN2290
  288. 2400 PRINTZG$;:ZI$=ZI$+ZG$:CC=CC+1
  289. 2410 GOTO2290
  290. 2420 IFZ8=0THEN2290
  291. 2430 PRINT"[157] [157]";:CC=CC-1
  292. 2440 IFZ8=1THEN2270
  293. 2450 ZI$=LEFT$(ZI$,Z8-1)
  294. 2460 GOTO2290
  295. 2470 IFZ8=0THEN2290
  296. 2480 ZI=VAL(ZI$):FORZ1=1TOZ8:PRINT"[157]";:NEXT
  297. 2490 IFZC=1THENFORZ1=1TOZ8:PRINT" ";:NEXT:FORZ1=1TOZ8:PRINT"[157]";:NEXT
  298. 2500 RETURN
  299. 2510 ZQ=ZQ+1
  300. 2520 IF ZQ=5 THEN ZQ=1
  301. 2530 CX=CC:CY=RR
  302. 2540 RR=16:CC=26:GOSUB 3090
  303. 2550 PRINTWR$(ZQ);:RR=CY:CC=CX
  304. 2560 GOSUB 3090
  305. 2570 RETURN
  306. 2580 X(1)=21-L(1):X(2)=21-L(2)
  307. 2590 FORQX=1TO2:RR=X(QX)-3:CC=5+(QX*6):GOSUB3090:PRINTPP$(J(QX));:NEXTQX
  308. 2600 FORQX=1TO2:RR=X(QX):CC=5+(QX*6)
  309. 2610 IF L(QL)=0 AND(ZI=V3) THEN 2670
  310. 2620 GOSUB3090
  311. 2630 IF L(QX)>0THENPRINT"[163][163][163]";
  312. 2640 IF L(QX)=0THENPRINT"";
  313. 2650 IF L(QX)<=7THENPRINT"[145][145][145][145][157][157][157][164][164][164]"
  314. 2660 IF L(QX)>7THENPRINT"[145][145][145][145][157][157][157]   "
  315. 2670 NEXTQX
  316. 2680 FORQX=1TO2:FORRR=X(QX)-4TO10STEP-1
  317. 2690 CC=5+(QX*6):IF QR(QX)=1 THEN 2710
  318. 2700 GOSUB3090:PRINT"[164][164][164]":NEXTRR
  319. 2710 QR(QX)=1:NEXT QX:RETURN
  320. 2720 QL=3-QL:L1=L(QL):FORQY=(21-L1)TO20
  321. 2730 L(QL)=L(QL)-1:GOSUB 2510
  322. 2740 IF L(QL)-7>0THENJ(QL)=J(QL)-2
  323. 2750 IF L(QL)-7<0THENJ(QL)=QL
  324. 2760 GOSUB2580:NEXTQY:RR=17:CC=5+(QL*6):GOSUB3090
  325. 2770 PRINT"[164][164][164][157][157][157][164][164][164][157][157][157][164][164][164][157][157][157][164][164][164][157][157][157]":RR=10:CC=5+(QL*6):GOSUB3090:PRINT"   "
  326. 2780 RR=18:CC=QL*10:GOSUB3090:IFQL=2THENCC=CC+1
  327. 2790 IF QL=1THENCC=CC-3
  328. 2800 GOSUB 3090:PRINTPP$(QL+6)
  329. 2810 FORRR=11TO20:CC=5+(QL*6):GOSUB3090:PRINT"[163][163][163]":GOSUB2510:NEXTRR
  330. 2820 QL=3-QL:QW=QL:FORCC=(5+(QL*6))TO27:RR=8
  331. 2830 GOSUB 3090:IFQL=1THENQW=4-QW
  332. 2840 IF QL=2 THEN QW=6-QW
  333. 2850 GOSUB2510
  334. 2860 PRINT PQ$(QW):NEXT CC
  335. 2870 FORRR=7TO5STEP-1:CC=27:GOSUB3090
  336. 2880 PRINTPQ$(4+QL):GOSUB3030:NEXTRR
  337. 2890 RR=5:FORCC=27TO30:GOSUB3090
  338. 2900 PRINTPQ$(6+QL):GOSUB3030:NEXTCC
  339. 2910 CC=30:FORRR=5TO16:GOSUB3090
  340. 2920 PRINTPQ$(8+QL):GOSUB3030:NEXTRR
  341. 2930 QT=QL:SP=2:FORCC=30TO37:RR=17:GOSUB3090
  342. 2940 PRINTPR$(QT):GOSUB3030
  343. 2950 IF SP=2 THEN CC=CC-1
  344. 2960 QT=QT+SP:IFQT=9 OR QT=10 AND SP=2THEN SP=-2:QT=QT+SP
  345. 2970 IFQT=-1ORQT=0ANDSP=-2THENSP=2:QT=QT+SP
  346. 2980 NEXT CC:QP=0
  347. 2990 RR=17:FORCC=38TO40:GOSUB3090:PRINTPS$(QP+QL);:GOSUB 3030:QP=QP+2:NEXTCC
  348. 3000 FOR QX=1 TO 1000:NEXT QX:UH=0:GOSUB850
  349. 3010 GOSUB 3180
  350. 3020 :
  351. 3030 XX=RR:YY=CC:GOSUB2510
  352. 3040 RR=XX:CC=YY:RETURN
  353. 3050 ZR$="":ZC$=""
  354. 3060 FOR Z1=1TO41:ZC$=ZC$+"":NEXT
  355. 3070 FOR Z2=1TO25:ZR$=ZR$+"":NEXT
  356. 3080 RETURN
  357. 3090 PRINT"";
  358. 3100 IFCC<2THEN3120
  359. 3110 PRINTLEFT$(ZC$,CC-1);
  360. 3120 IFRR<2THEN3140
  361. 3130 PRINTLEFT$(ZR$,RR-1);
  362. 3140 RETURN
  363. 3150 POKEUN,0
  364. 3160 GET ZG$:IF ZG$="" THEN 3160
  365. 3170 RETURN
  366. 3180 RR=10:CC=1:GOSUB3090
  367. 3190 PRINT" DO YOU WANT TO PLAY AGAIN? ";
  368. 3240 US$="YNH":UL=1:GOSUB35:ZG$=UR$
  369. 3250 SYSUP%:SYSUP%
  370. 3260 IFZG$="Y"THENCLR:GOSUB900:GOTO1010
  371. 3300 GOTO300
  372. 3310 FORZ1=1TO5:PRINT"                                    "
  373. 3320 NEXT:PRINT"":GOTO300
  374.